home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #4
/
Commodore_Disk_User_Vol.4_4_1991_-.d64
/
gal'ic encounter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
32 lines
5 if x=0 then 600
10 x=x+1:print""
20 on x goto 100,150,200,250,300
100 print"[147]";:m$=" [199]alactic [197]ncounter - [205]enu: "
110 gosub 500
120 m$=" 1. [212]he [199]ame... "
121 m$=m$+" "
122 m$=m$+" 2. [213]tilities [196]emo... "
124 m$=m$+" 3. [197]xtra [201]nfo on [212]he [208]rograms... "
130 gosub 500
132 m$=" >[208]ress 1-3 for your selection... "
134 gosub 500:print"[145][145][145][145]";
140 get k$:if k$<"1" or k$>"3" then 140
143 on val(k$) goto 150,400,450
150 m$=" [211]prites [204]oading. "
160 gosub 500:load"ge.sprites",8,1
200 m$=" [205]achine [195]ode [204]oading. "
210 gosub 500:load "ge.m/c",8,1
250 m$=" [198]ont [204]oading. "
270 gosub 500:load"ge.font $7800",8,1
300 m$=" [194][193][211][201][195][160][199]ame [204]oading. "
310 gosub 500:load "ge.basic game",8
400 m$=" [213]tilities [196]emo [204]oading. "
410 gosub 500:load "ge.mc utils demo",8
450 m$=" [197]xtra [201]nfo [204]oading. "
460 gosub 500:load "ge.extra info",8
500 print:print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
510 poke646,15:print "";m$;
520 poke 646,11:print"[146][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][144]";
530 return
600 poke 46,52:poke45,0:clr:poke 53280,0:poke 53281,0:goto 10